home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 April
/
EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso
/
earkit
/
irc
/
rexx
/
wallchop.amirx
< prev
Wrap
Text File
|
1998-03-13
|
939b
|
41 lines
/* WallChop.AMIRX -- Write a message to all channel operators on a channel
\\ written by Oliver Wagner
// UPDATED BY TROY "DOOGIE" DAVIS (DOOGIE@WSP1.WSPICE.COM), WHO IS
\\ TYPING IN ALL CAPS BECAUSE A CERTAIN HACK MUI PROGRAMMER SEEMED
// TO "FORGET" ABOUT HIS CONTRIBUTION. ;^)
\\
//
\\ Put this script in PROGDIR:rexx/ and add this as an alias with the
// command: "/alias wallchop /rx wallchop %p"
\\
*/
parse arg args
options results
if args = "" then do
'echo P='d2c(27)'b«Error» Usage: /RX WALLCHOP text'
exit
end
ops = ""
getmynick
mynick = RESULT
getchannel
channel = RESULT
namevalid = 0
count = 0
do while namevalid = 0
getuserstate count
if rc = 5 then break
if rc = 1 then do
getuser count
nick = RESULT
ops = ops nick
'RAW PRIVMSG 'nick' :'d2c(2)'[WallChop/'channel']'d2c(2) ARGS
end
count = count + 1
end
'echo P='d2c(27)'b«WallChop» WallChop message sent to: 'strip(ops)